home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir30 / pcadmate.zip / PCADMATE.LST
File List  |  1991-08-03  |  6KB  |  119 lines
  1. pcadmat2.lst
  2.  
  3.  
  4. Listing 1
  5.  
  6.  
  7. 1 REM**********************************************
  8. 2 REM** ADC.BAS - V910803 - JJ Barbarello *
  9. 3 REM** Capture/Store Analog Data with PcA/D-MATE *
  10. 4 REM**********************************************
  11. 10 CLS : DEFINT A, X: DIM A(1000): GOSUB 370: LOCATE 1, 23
  12. 20 PRINT "PcA/D DATA COLLECTION SYSTEM": LOCATE 2, 1: PRINT STRING$(79, 220)
  13. 30 LOCATE 5, 1: PRINT SPACE$(79); : LOCATE 5, 10
  14. 40 LINE INPUT "Enter Time (0-3600 seconds) between samples..."; interval$
  15. 50 interval = VAL(interval$)
  16. 60 IF interval < 0 OR interval > 3600 THEN BEEP: GOTO 30
  17. 70 LOCATE 7, 10: PRINT "Press <Enter> to begin, or <Esc> to abort...";
  18. 80 GOSUB 350: IF A$ = CHR$(27) THEN CLOSE : END
  19. 90 LOCATE 5, 10: PRINT SPACE$(60): LOCATE 7, 10: PRINT SPACE$(60)
  20. 100 LOCATE 10, 22: PRINT "DIGITAL DATA (0-255):": LOCATE 12, 19
  21. 110 IF interval > 0 THEN PRINT "SECONDS BETWEEN SAMPLES: "; interval
  22. 120 LOCATE 13, 29: PRINT "SAMPLE NUMBER: "
  23. 130 LOCATE 16, 20: PRINT "Press <Esc> to End Sampling...";
  24. 140 acount = 1: xsample = 1
  25. 150 told = VAL(MID$(TIME$, 4, 2)) * 60 + VAL(RIGHT$(TIME$, 2))
  26. 160 IF interval = 0 THEN GOTO 210
  27. 170 T = VAL(MID$(TIME$, 4, 2)) * 60 + VAL(RIGHT$(TIME$, 2))
  28. 180 IF T = 0 AND (told - T > interval) THEN told = told - 3600
  29. 190 IF INKEY$ = CHR$(27) THEN GOTO 260
  30. 200 IF T - told > 0 THEN told = told + interval ELSE GOTO 170
  31. 210 OUT ADD + 2, 0: OUT ADD + 2, 1
  32. 220 x = INP(ADD): LOCATE 10, 44: PRINT USING "###"; x
  33. 230 LOCATE 13, 44: PRINT xsample; : xsample = xsample + 1
  34. 240 IF acount < 1001 THEN A(acount) = x: acount = acount + 1
  35. 250 IF INKEY$ <> CHR$(27) THEN GOTO 160
  36. 260 BEEP: LOCATE 16, 15
  37. 270 PRINT "Press <Enter> to save data, <Esc> for no save...";
  38. 280 GOSUB 350: IF ASC(A$) = 27 THEN CLS : END
  39. 290 LOCATE 16, 15
  40. 300 LINE INPUT "Enter File Name To Save Data (ex: TEST01.ADD)..."; f$
  41. 310 OPEN "r", 1, f$, 2: FIELD 1, 2 AS d1$
  42. 320 LOCATE 18, 20: PRINT "Saving Data...";
  43. 330 FOR i = 1 TO acount: LSET d1$ = MKI$(A(i)): PUT 1, LOF(1) / 2 + 1: NEXT
  44. 340 PRINT "Done.  Press ANY key."; : A$ = INPUT$(1): CLOSE : CLS : END
  45. 350 A$ = INKEY$: IF A$ = "" THEN GOTO 350
  46. 360 IF ASC(A$) = 13 OR ASC(A$) = 27 THEN RETURN ELSE BEEP: GOTO 350
  47. 370 OPEN "R", 1, "HWADDRES.DAT", 4: FIELD 1, 4 AS A$
  48. 380 GET 1, 1: ADD = VAL(A$): CLOSE : DEF SEG = 64: OUT ADD + 3, 146: RETURN
  49. 1 REM** GRAFDATA.BAS
  50. 2 REM** Graph PcA/D-Mate .ADD File Data (Requires Graphics Monitor)
  51. 3 REM** V910802 - JJ Barbarello
  52. 4 REM**
  53. 10 CLEAR : DEFINT I-J, Y: KEY OFF: CLS
  54. 20 COLOR 0, 7: LOCATE 3, 27: PRINT " GRAPH PcA/D-MATE DATA "; : COLOR 7, 0
  55. 30 LOCATE 10, 20: INPUT "Enter File Name (ex: TEST1.ADD)..."; DFN$
  56. 40 OPEN "R", 1, DFN$, 2: FIELD 1, 2 AS D$: IF LOF(1) > 0 THEN GOTO 80
  57. 50 CLOSE : KILL DFN$: BEEP: LOCATE 25, 13
  58. 60 PRINT "That File Doesn't exist.  Press ANY key to try again...";
  59. 70 A$ = INPUT$(1): CLS : GOTO 20
  60. 80 LOCATE 21, 34: COLOR 16, 7: PRINT " Reading data "; : COLOR 7, 0
  61. 90 DIM I((LOF(1) / 2) + 3)
  62. 100 FOR I = 1 TO LOF(1) / 2: GET 1, I: I(I) = 190 - CVI(D$): NEXT
  63. 110 LOCATE 21, 34: PRINT SPACE$(20)
  64. 120 LOCATE 12, 20: PRINT "File Has"; LOF(1) / 2; "Samples."
  65. 130 LOCATE 14, 20: INPUT "Enter Start Sample To View..."; ISTART
  66. 140 LOCATE 15, 20: INPUT "Enter End Sample To View"; IFIN
  67. 150 IF IFIN - ISTART > 1000 THEN IFIN = ISTART + 999
  68. 160 I(I) = I(I - 1): I(I + 1) = I(I): I(I + 2) = I(I + 1)
  69. 170 YINC = 500 / (IFIN - ISTART)
  70. 180 IF (IFIN - ISTART) > 499 THEN istp = 2 ELSE istp = 1
  71. 190 SCREEN 2: LOCATE 2, 1: PRINT "SAMPLES": LOCATE 3, 1: PRINT "-------"
  72. 200 LOCATE 4, 1: PRINT "Start:"; ISTART: LOCATE 5, 3: PRINT "End:"; IFIN
  73. 210 LOCATE 20, 1: PRINT "Press <ESC>": LOCATE 21, 3: PRINT "To End..."
  74. 220 LINE (138, 0)-(138, 190): LINE (138, 190)-(639, 190): J = 139
  75. 230 FOR I = 0 TO 152 STEP 38: LINE (128, I)-(137, I): NEXT
  76. 240 LOCATE 1, 13: PRINT "5.0": LOCATE 24, 16: PRINT "0";
  77. 250 LOCATE 12, 12: PRINT "VOLTS";
  78. 260 FOR I = ISTART TO IFIN STEP istp
  79. 270 LINE (J, I(I))-(J + YINC, I(I + istp)): J = J + YINC: NEXT I
  80. 280 A$ = INKEY$: IF A$ = "" THEN 280
  81. 290 IF ASC(A$) = 27 THEN SCREEN 0: END ELSE BEEP: GOTO 280
  82.  
  83.  
  84. Listing 2
  85.  
  86. 1 REM** GRAFDATA.BAS
  87. 2 REM** Graph PcA/D-Mate .ADD File Data (Requires Graphics Monitor)
  88. 3 REM** V910802 - JJ Barbarello
  89. 4 REM**
  90. 10 CLEAR : DEFINT I-J, Y: KEY OFF: CLS
  91. 20 COLOR 0, 7: LOCATE 3, 27: PRINT " GRAPH PcA/D-MATE DATA "; : COLOR 7, 0
  92. 30 LOCATE 10, 20: INPUT "Enter File Name (ex: TEST1.ADD)..."; DFN$
  93. 40 OPEN "R", 1, DFN$, 2: FIELD 1, 2 AS D$: IF LOF(1) > 0 THEN GOTO 80
  94. 50 CLOSE : KILL DFN$: BEEP: LOCATE 25, 13
  95. 60 PRINT "That File Doesn't exist.  Press ANY key to try again...";
  96. 70 A$ = INPUT$(1): CLS : GOTO 20
  97. 80 LOCATE 21, 34: COLOR 16, 7: PRINT " Reading data "; : COLOR 7, 0
  98. 90 DIM I((LOF(1) / 2) + 3)
  99. 100 FOR I = 1 TO LOF(1) / 2: GET 1, I: I(I) = 190 - CVI(D$): NEXT
  100. 110 LOCATE 21, 34: PRINT SPACE$(20)
  101. 120 LOCATE 12, 20: PRINT "File Has"; LOF(1) / 2; "Samples."
  102. 130 LOCATE 14, 20: INPUT "Enter Start Sample To View..."; ISTART
  103. 140 LOCATE 15, 20: INPUT "Enter End Sample To View"; IFIN
  104. 150 IF IFIN - ISTART > 1000 THEN IFIN = ISTART + 999
  105. 160 I(I) = I(I - 1): I(I + 1) = I(I): I(I + 2) = I(I + 1)
  106. 170 YINC = 500 / (IFIN - ISTART)
  107. 180 IF (IFIN - ISTART) > 499 THEN ISTP = 2 ELSE ISTP = 1
  108. 190 SCREEN 2: LOCATE 2, 1: PRINT "SAMPLES": LOCATE 3, 1: PRINT "-------"
  109. 200 LOCATE 4, 1: PRINT "Start:"; ISTART: LOCATE 5, 3: PRINT "End:"; IFIN
  110. 210 LOCATE 20, 1: PRINT "Press <ESC>": LOCATE 21, 3: PRINT "To End..."
  111. 220 LINE (138, 0)-(138, 190): LINE (138, 190)-(639, 190): J = 139
  112. 230 FOR I = 0 TO 152 STEP 38: LINE (128, I)-(137, I): NEXT
  113. 240 LOCATE 1, 13: PRINT "5.0": LOCATE 24, 16: PRINT "0";
  114. 250 LOCATE 12, 12: PRINT "VOLTS";
  115. 260 FOR I = ISTART TO IFIN STEP ISTP
  116. 270 LINE (J, I(I))-(J + YINC, I(I + ISTP)): J = J + YINC: NEXT I
  117. 280 A$ = INKEY$: IF A$ = "" THEN 280
  118. 290 IF ASC(A$) = 27 THEN SCREEN 0: END ELSE BEEP: GOTO 280
  119.